Option Explicit
Sub P_Sample001()
    Dim myFs   As FileSearch
    Dim myPath As String
    Dim i      As Long
    Set myFs = Application.FileSearch
    myPath = ThisWorkbook.Path	'NƧ
    With myFs
        .NewSearch
        .LookIn = myPath
        .FileType = msoFileTypeAllFiles
        .Filename = "*.*"
        .SearchSubFolders = True
        If .Execute(SortBy:=msoSortByFileName) > 0 Then
            For i = 1 To .FoundFiles.Count
                Debug.Print .FoundFiles(i)
            Next
        Else
            Debug.Print "Lkwɮ"
        End If
    End With
    Set myFs = Nothing		'
End Sub
